﻿Partial Public Class comicEditor


    Private _pages As ComicPages = New ComicPages
    Private _comInfo As New ComicInfo

    Public ReadOnly Property Pages() As ComicPages
        Get
            Return _pages
        End Get
    End Property

    Protected Overrides Sub OnDragOver(ByVal e As DragEventArgs)
        MyBase.OnDragOver(e)
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effects = DragDropEffects.Link
        Else
            e.Effects = DragDropEffects.None
        End If
    End Sub


    Private Sub FileDropHandler(ByVal sender As Object, ByVal e As DragEventArgs)
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            Dim files() As String
            files = CType(e.Data.GetData(DataFormats.FileDrop), String())
            Dim c As comic = Me.DataContext
            For Each s As String In files
                Me.Pages.Add(New comicPage(s))
            Next
            e.Effects = DragDropEffects.Link
        End If
    End Sub

   

    Private Sub btnMoveUp_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)

    End Sub

    Private Sub btnMoveDown_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)

    End Sub

    Private Sub btnEditPageDetails_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)

    End Sub

    Private Sub btnRemovePage_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)

    End Sub

    Private Sub cmdNewPage_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)

    End Sub
End Class
